home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / UNIXTOOL / M4SRC / _files / _M4 / _Mac / String < prev    next >
Encoding:
Text File  |  1989-10-12  |  207 b   |  9 lines
  1.  
  2. define(string,`integer $1(len(substr($2,1)))
  3. str($1,substr($2,1),0)dnl
  4. data $1(len(substr($2,1)))/EOS/
  5. ')
  6.  
  7. define(str,`ifelse($2,",,data $1(incr($3))/`LET'substr($2,0,1)/
  8. `str($1,substr($2,1),incr($3))')')
  9.